perm filename ZB2.DAT[MUS,LCS] blob
sn#166852 filedate 1975-07-06 generic text, type T, neo UTF8
00100 RCDFLG=-1;
00200
00300 < ZB2 .DAT -- RANDOM NUMBER= 1
00400 PLAY;
00500 TOOT 0.000 0.080 CS 500.000 F1 F3
00600 ;PRINT(P1);< TOOT 1
00700 TOOT 0.080 0.080 AS/2 500.000 F1 F3
00800 ;PRINT(P1);< TOOT 2
00900 TOOT 0.160 0.080 DS/2 500.000 F1 F3
01000 ;PRINT(P1);< TOOT 3
01100 TOOT 0.240 0.150 C/2 1000.000 F2 F6
01200 ;PRINT(P1);< TOOT 4
01300 TOOT 0.390 0.080 D 500.000 F1 F3
01400 ;PRINT(P1);< TOOT 5
01500 TOOT 0.470 0.080 CS 500.000 F1 F3
01600 ;PRINT(P1);< TOOT 6
01700 TOOT 0.550 0.080 A/2 500.000 F1 F3
01800 ;PRINT(P1);< TOOT 7
01900 TOOT 0.630 0.080 B/4 500.000 F1 F3
02000 ;PRINT(P1);< TOOT 8
02100 TOOT 0.710 0.080 FS/2 500.000 F1 F3
02200 ;PRINT(P1);< TOOT 9
02300 TOOT 0.790 0.080 GS/2 500.000 F1 F3
02400 ;PRINT(P1);< TOOT 10
02500 TOOT 0.870 0.080 C 500.000 F1 F3
02600 ;PRINT(P1);< TOOT 11
02700 TOOT 0.950 0.080 C/2 500.000 F1 F3
02800 ;PRINT(P1);< TOOT 12
02900 TOOT 1.030 0.080 FS/2 500.000 F1 F3
03000 ;PRINT(P1);< TOOT 13
03100 TOOT 1.110 0.080 E/2 500.000 F1 F3
03200 ;PRINT(P1);< TOOT 14
03300 TOOT 1.190 0.080 G/2 500.000 F1 F3
03400 ;PRINT(P1);< TOOT 15
03500 TOOT 1.270 0.080 DS/2 500.000 F1 F3
03600 ;PRINT(P1);< TOOT 16
03700 TOOT 1.350 0.080 F/2 500.000 F1 F3
03800 ;PRINT(P1);< TOOT 17
03900 TOOT 1.430 0.080 GS/2 500.000 F1 F3
04000 ;PRINT(P1);< TOOT 18
04100 TOOT 1.510 0.080 FS/2 500.000 F1 F3
04200 ;PRINT(P1);< TOOT 19
04300 TOOT 1.590 0.080 CS 500.000 F1 F3
04400 ;PRINT(P1);< TOOT 20
04500 TOOT 1.670 0.150 CS/2 1000.000 F2 F6
04600 ;PRINT(P1);< TOOT 21
04700 TOOT 1.820 0.080 G/2 500.000 F1 F3
04800 ;PRINT(P1);< TOOT 22
04900 TOOT 1.900 0.080 FS/2 500.000 F1 F3
05000 ;PRINT(P1);< TOOT 23
05100 TOOT 1.980 0.080 CS 500.000 F1 F3
05200 ;PRINT(P1);< TOOT 24
05300 TOOT 2.060 0.080 E/2 500.000 F1 F3
05400 ;PRINT(P1);< TOOT 25
05500 TOOT 2.140 0.080 B/4 500.000 F1 F3
05600 ;PRINT(P1);< TOOT 26
05700 TOOT 2.220 0.080 AS/2 500.000 F1 F3
05800 ;PRINT(P1);< TOOT 27
05900 TOOT 2.300 0.080 CS/2 500.000 F1 F3
06000 ;PRINT(P1);< TOOT 28
06100 TOOT 2.380 0.080 AS/2 500.000 F1 F3
06200 ;PRINT(P1);< TOOT 29
06300 TOOT 2.460 0.080 D 500.000 F1 F3
06400 ;PRINT(P1);< TOOT 30
06500 TOOT 2.540 0.080 DS/2 500.000 F1 F3
06600 ;PRINT(P1);< TOOT 31
06700 TOOT 2.620 0.080 C 500.000 F1 F3
06800 ;PRINT(P1);< TOOT 32
06900 TOOT 2.700 0.150 D/2 1000.000 F2 F6
07000 ;PRINT(P1);< TOOT 33
07100 TOOT 2.850 0.080 CS 500.000 F1 F3
07200 ;PRINT(P1);< TOOT 34
07300 TOOT 2.930 0.080 F/2 500.000 F1 F3
07400 ;PRINT(P1);< TOOT 35
07500 TOOT 3.010 0.080 E/2 500.000 F1 F3
07600 ;PRINT(P1);< TOOT 36
07700 TOOT 3.090 0.080 G/2 500.000 F1 F3
07800 ;PRINT(P1);< TOOT 37
07900 TOOT 3.170 0.150 DS/2 1000.000 F2 F6
08000 ;PRINT(P1);< TOOT 38
08100 TOOT 3.320 0.080 F/2 500.000 F1 F3
08200 ;PRINT(P1);< TOOT 39
08300 TOOT 3.400 0.080 C 500.000 F1 F3
08400 ;PRINT(P1);< TOOT 40
08500 TOOT 3.480 0.080 CS/2 500.000 F1 F3
08600 ;PRINT(P1);< TOOT 41
08700 TOOT 3.560 0.080 A/2 500.000 F1 F3
08800 ;PRINT(P1);< TOOT 42
08900 TOOT 3.640 0.080 C 500.000 F1 F3
09000 ;PRINT(P1);< TOOT 43
09100 TOOT 3.720 0.080 D 500.000 F1 F3
09200 ;PRINT(P1);< TOOT 44
09300 TOOT 3.800 0.080 AS/2 500.000 F1 F3
09400 ;PRINT(P1);< TOOT 45
09500 TOOT 3.880 0.080 D/2 500.000 F1 F3
09600 ;PRINT(P1);< TOOT 46
09700 TOOT 3.960 0.080 D 500.000 F1 F3
09800 ;PRINT(P1);< TOOT 47
09900 TOOT 4.040 0.080 AS/2 500.000 F1 F3
10000 ;PRINT(P1);< TOOT 48
10100 TOOT 4.120 0.080 CS/2 500.000 F1 F3
10200 ;PRINT(P1);< TOOT 49
10300 TOOT 4.200 0.080 AS/2 500.000 F1 F3
10400 ;PRINT(P1);< TOOT 50
10500 TOOT 4.280 0.080 B/4 500.000 F1 F3
10600 ;PRINT(P1);< TOOT 51
10700 TOOT 4.360 0.150 E/2 1000.000 F2 F6
10800 ;PRINT(P1);< TOOT 52
10900 TOOT 4.510 0.080 D 500.000 F1 F3
11000 ;PRINT(P1);< TOOT 53
11100 TOOT 4.590 0.080 GS/2 500.000 F1 F3
11200 ;PRINT(P1);< TOOT 54
11300 TOOT 4.670 0.080 C 500.000 F1 F3
11400 ;PRINT(P1);< TOOT 55
11500 TOOT 4.750 0.080 CS 500.000 F1 F3
11600 ;PRINT(P1);< TOOT 56
11700 TOOT 4.830 0.080 C 500.000 F1 F3
11800 ;PRINT(P1);< TOOT 57
11900 TOOT 4.910 0.080 A/2 500.000 F1 F3
12000 ;PRINT(P1);< TOOT 58
12100 TOOT 4.990 0.080 B/4 500.000 F1 F3
12200 ;PRINT(P1);< TOOT 59
12300 TOOT 5.070 0.080 G/2 500.000 F1 F3
12400 ;PRINT(P1);< TOOT 60
12500 TOOT 5.150 0.080 FS/2 500.000 F1 F3
12600 ;PRINT(P1);< TOOT 61
12700 TOOT 5.230 0.080 CS 500.000 F1 F3
12800 ;PRINT(P1);< TOOT 62
12900 TOOT 5.310 0.080 DS/2 500.000 F1 F3
13000 ;PRINT(P1);< TOOT 63
13100 TOOT 5.390 0.080 C 500.000 F1 F3
13200 ;PRINT(P1);< TOOT 64
13300 TOOT 5.470 0.080 E/2 500.000 F1 F3
13400 ;PRINT(P1);< TOOT 65
13500 TOOT 5.550 0.080 C/2 500.000 F1 F3
13600 ;PRINT(P1);< TOOT 66
13700 TOOT 5.630 0.080 D 500.000 F1 F3
13800 ;PRINT(P1);< TOOT 67
13900 TOOT 5.710 0.080 B/2 500.000 F1 F3
14000 ;PRINT(P1);< TOOT 68
14100 TOOT 5.790 0.150 F/2 1000.000 F2 F6
14200 ;PRINT(P1);< TOOT 69
14300 TOOT 5.940 0.150 FS/2 1000.000 F2 F6
14400 ;PRINT(P1);< TOOT 70
14500 TOOT 6.090 0.080 B/4 500.000 F1 F3
14600 ;PRINT(P1);< TOOT 71
14700 TOOT 6.170 0.080 A/2 500.000 F1 F3
14800 ;PRINT(P1);< TOOT 72
14900 TOOT 6.250 0.080 D 500.000 F1 F3
15000 ;PRINT(P1);< TOOT 73
15100 TOOT 6.330 0.080 CS/2 500.000 F1 F3
15200 ;PRINT(P1);< TOOT 74
15300 TOOT 6.410 0.080 GS/2 500.000 F1 F3
15400 ;PRINT(P1);< TOOT 75
15500 TOOT 6.490 0.150 G/2 1000.000 F2 F6
15600 ;PRINT(P1);< TOOT 76
15700 TOOT 6.640 0.080 C/2 500.000 F1 F3
15800 ;PRINT(P1);< TOOT 77
15900 TOOT 6.720 0.080 AS/2 500.000 F1 F3
16000 ;PRINT(P1);< TOOT 78
16100 TOOT 6.800 0.080 B/4 500.000 F1 F3
16200 ;PRINT(P1);< TOOT 79
16300 TOOT 6.880 0.080 E/2 500.000 F1 F3
16400 ;PRINT(P1);< TOOT 80
16500 TOOT 6.960 0.080 D 500.000 F1 F3
16600 ;PRINT(P1);< TOOT 81
16700 TOOT 7.040 0.080 G/2 500.000 F1 F3
16800 ;PRINT(P1);< TOOT 82
16900 TOOT 7.120 0.080 AS/2 500.000 F1 F3
17000 ;PRINT(P1);< TOOT 83
17100 TOOT 7.200 0.150 GS/2 1000.000 F2 F6
17200 ;PRINT(P1);< TOOT 84
17300 TOOT 7.350 0.080 C/2 500.000 F1 F3
17400 ;PRINT(P1);< TOOT 85
17500 TOOT 7.430 0.080 GS/2 500.000 F1 F3
17600 ;PRINT(P1);< TOOT 86
17700 TOOT 7.510 0.080 B/2 500.000 F1 F3
17800 ;PRINT(P1);< TOOT 87
17900 TOOT 7.590 0.150 A/2 1000.000 F2 F6
18000 ;PRINT(P1);< TOOT 88
18100 TOOT 7.740 0.080 D/2 500.000 F1 F3
18200 ;PRINT(P1);< TOOT 89
18300 TOOT 7.820 0.080 CS 500.000 F1 F3
18400 ;PRINT(P1);< TOOT 90
18500 TOOT 7.900 0.080 GS/2 500.000 F1 F3
18600 ;PRINT(P1);< TOOT 91
18700 TOOT 7.980 0.080 C 500.000 F1 F3
18800 ;PRINT(P1);< TOOT 92
18900 TOOT 8.060 0.080 CS 500.000 F1 F3
19000 ;PRINT(P1);< TOOT 93
19100 TOOT 8.140 0.080 DS 500.000 F1 F3
19200 ;PRINT(P1);< TOOT 94
19300 TOOT 8.220 0.080 B/2 500.000 F1 F3
19400 ;PRINT(P1);< TOOT 95
19500 TOOT 8.300 0.080 G/2 500.000 F1 F3
19600 ;PRINT(P1);< TOOT 96
19700 TOOT 8.380 0.150 AS/2 1000.000 F2 F6
19800 ;PRINT(P1);< TOOT 97
19900 TOOT 8.530 0.080 A/2 500.000 F1 F3
20000 ;PRINT(P1);< TOOT 98
20100 TOOT 8.610 0.080 D/2 500.000 F1 F3
20200 ;PRINT(P1);< TOOT 99
20300 TOOT 8.690 0.080 D 500.000 F1 F3
20400 ;PRINT(P1);< TOOT 100
20500 TOOT 8.770 0.080 AS/2 500.000 F1 F3
20600 ;PRINT(P1);< TOOT 101
20700 TOOT 8.850 0.080 D/2 500.000 F1 F3
20800 ;PRINT(P1);< TOOT 102
20900 TOOT 8.930 0.080 B/4 500.000 F1 F3
21000 ;PRINT(P1);< TOOT 103
21100 TOOT 9.010 0.150 B/2 1000.000 F2 F6
21200 ;PRINT(P1);< TOOT 104
21300 TOOT 9.160 0.080 DS/2 500.000 F1 F3
21400 ;PRINT(P1);< TOOT 105
21500 TOOT 9.240 0.080 C/2 500.000 F1 F3
21600 ;PRINT(P1);< TOOT 106
21700 TOOT 9.320 0.080 D 500.000 F1 F3
21800 ;PRINT(P1);< TOOT 107
21900 TOOT 9.400 0.150 C 1000.000 F2 F6
22000 ;PRINT(P1);< TOOT 108
22100 FINISH; < ZB2 .DAT